unit uNewUser;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TFmNewUser }

  TFmNewUser = class(TForm)
    BTOK: TButton;
    CheckBAdmin: TCheckBox;
    EDMail: TEdit;
    EDName: TEdit;
    EDConfirmPas: TEdit;
    EDPas: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure BTOKClick(Sender: TObject);
  private

  public

  end;

var
  FmNewUser: TFmNewUser;

implementation

{$R *.lfm}

{ TFmNewUser }

procedure TFmNewUser.BTOKClick(Sender: TObject);
begin

end;

end.

